10 REM ******** AUFRUFPROGRAMM FUER TEILBILDSCHIRM **********
20 REM IN REM-BEMERKUNGEN JEWEILS WERTE FUER DEN C128
30 REM VORAUSSETZUNG, DASS BEIM C64 AB $C000
40 REM                     BEIM C128 AB $1400 DAS PROGRAMM LIEGT.
50 REM
60 REM ------- EINGABE DER PARAMETER ---------
70 PRINT CHR$(147):INPUT"LINKE OBERE ECKE Z1,S1";Z1,S1
80 INPUT"RECHTE UNTERE ECKE Z2,S2";Z2,S2
90 INPUT"FARBE,WERT";F,W
100 REM ------- EINPOKEN DER WERTE ------------
110 POKE 49157,Z1:REM POKE 5125,Z1
120 POKE 49161,S1:REM POKE 5129,S1
130 POKE 49166,S2:REM POKE 5134,S2
140 POKE 49175,Z2:REM POKE 5143,Z2
150 POKE 49255,F:REM POKE 5223,F
160 POKE 49259,W:REM POKE 5227,W
170 REM ------ AUFRUF DER ROUTINE ------------
180 SYS49152
190 END